home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / t_os / artemis / artsrc2 / grpcopy.c < prev    next >
C/C++ Source or Header  |  1993-11-30  |  873b  |  39 lines
  1. /*
  2.     grpcopy.c
  3. */
  4.  
  5. #include <ryosuke.h>
  6. #include <usrlib.h>
  7.  
  8. extern    char    *EGB_work;
  9.  
  10. void    grp_copy(int sx1, int sy1, int sxlen, int sylen, int sp,
  11.                  int dx1, int dy1, int dp, int mode )
  12.     {
  13.     int        n, sx2, sy2, dmy, nowpage;
  14.     char    para[18], para2[8];
  15.     nowpage = grp_getWrtpage();
  16.     grp_setWrtpage( sp );
  17.     sx2 = sy1 + sxlen - 1;
  18.     sy2 = sy1 + sylen - 1;
  19.     WORD(para + 0) = 4;
  20.     WORD(para + 2) = sx1;
  21.     WORD(para + 4) = sy1;
  22.     WORD(para + 6) = sx1;
  23.     WORD(para + 8) = sy2;
  24.     WORD(para + 10) = sx2;
  25.     WORD(para + 12) = sy2;
  26.     WORD(para + 14) = sx2;
  27.     WORD(para + 16) = sy1;
  28.     n = 0x80;
  29.     EGB_region( EGB_work, &n, &dmy, &dmy, &dmy, &dmy, &dmy, para );
  30.     para2[0] = dp;
  31.     para2[1] = 0;
  32.     WORD(para2 + 2) = dx1 - sx1;
  33.     WORD(para2 + 4) = dy1 - sy1;
  34.     EGB_copy( EGB_work, 0, para2, NULL );
  35.     EGB_writePage( EGB_work, (int) nowpage );
  36.     }
  37.  
  38. /* end of grpcopy.c */
  39.